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PLANO DA OBRA 
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DNAP. 

Em Portugal, os pedidos devem ser feitos à Distribuidora Jardim de Publica- 
ções, Lda. — Qta. Pau Varais, Azinhaga de Fetais — 2 685, Camarate — Lis- 
boa; Apartado 57 — Telex 43 069 JARLIS P. 

Atenção: Após seis meses do encerramento da coleção, os pedidos serão aten- 
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do número da edição. 
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| | aMAZE Er E 
+ Ê REPRODUÇÃO DE NS DIGITAIS 
Use o seu microcomputador para explorar | 
a tecnologia da gravação sonora Ca) | 
digital. Um simples programa permite a 
análise do som, assim como a 
reprodução de um breve trecho musical. 
















Tejo) E DIGITAL 






Todo som tem dois componentes: vo- 
lume € frequência. Habitualmente, o ou- 
vido humano é capaz de interpretar si- 
nais complexos, transformando as vi- 

















O traçado imita a onda sonora original. 


brações do ar em sons reconhecíveis. 
Nessa forma, o som é um sinal analógi- 
co — isto é, varia continuamente den- 
tro de um intervalo, e qualquer modifi- 
cação é si nervos Os computadores, 
ao contr dos seres humanos, não 
conseguem reconhecer esse tipo de va- 
riação e precisam de um sinal digital. 
Assim, cada variação é representada por 
um valor diferente, O ou 1, presença ou 
;usência de sinal, 

Mesmo que o computador não seja 
capaz de interpretar diretamente um si- 
nal sonoro, não é difícil converter a on- 
ja sonora analógica de uma melodia, 
por exemplo, em informação digital. 

Essa técnica é a última novidade nos 
estúdios de gravação, que estão trocan- 
do as fitas tradicionais (onde se grava 
o sinal analógico) por sistemas compu- 
tadorizados que gravam as músicas em 
discos (discos de computador). A van- 
tagem de se gravar o som na forma di- 
gital baseia-se na facilidade com que se 
pode combinar o sinal gravado com ou- 
tros sons. Além disso, uma vez grava- 
do nessa forma, o risco de distorção do 
sinal devido a limitações do equipamen- 
to é bem menor. 





“MÚSICA EM SEU MICRO 


Embora a tecnologia necessária pa- 
ra esse tipo de gravação se restrinja a es- 
túdios com equipamentos altamente so- 
fisticados, a maioria dos microcompu- 
tadores tem os recursos básicos que per- 
mitem a exploração dessa técnica. Ca- 
da vez que carregamos um programa 
gravado em fita cassete, estamos repro- 
duzindo um sinal que foi registrado na 
forma digital. Mas quem já ouviu uma 
fita de programas sabe que ela produz 
som, ainda que não muito agradável. 

Sons e melodias podem ser colocados 
em seu micro, desde que você recorra às 
técnicas de programação adequadas (em 
linguagem de máquina, inclusive). Pa- 
ra isso, é necessário apenas introduzir 


um sinal analógico através do plugue de 
gravação e ensinar o computador a in- 
terpretá-lo, transformando-o em um si- 
nal digital. 

Uma vez feito isto, o programa po- 
derá armazenar o sinal digital na memó- 
ria, ou mesmo mostrá-lo em forma grá- 
fica, como faz o programa deste artigo. 
Isso significa que o seu computador se- 
rá capaz agora de transformar qualquer 
som em números, que podem ser usa- 
dos para produzir um gráfico na tela ou 
ser armazenados na memória para re- 
produção posterior. 


O TRAÇADO DO SOM 





O pr agrama pode reproduzir um tra- 
çado gráfico que corresponde ao som to- 
cado pelo eder Quando este é liga- 
do, uma série de linhas regularmente es- 
paçadas surge na tela (quanto maior a 
frequência, mais alta é a linha). No mo- 
mento em que a tela fica cheia, o traça- 
do desaparece, recomeçando do canto 
esquerdo do vídeo, 


GRAVE U SOM 





O programa também permite, numa 
segunda opção, a gravação digital do si- 
nal de entradá — o tamanho do trecho 
que se pode gravar é bem limitado, por 
razões que explicaremos mais adiante. 
Uma terceira opção possibilita a repro- 
dução do som obtido. 


COMO FUNCIONA 


Como o computador não pode inter- 
pretar diretamente o sinal sonoro ana- 
lógico, nós o programamos de modo a 
atribuir valores digitais a esse sinal. O 
programa verifica repetidamente Os si- 
nais na porta de entrada do cassete em 
intervalos muito curtos de tempo (mi- 
lhares de vezes por segundo). Esses si- 
nais só podem ser O ou | — não há va- 
lores intermediários como no sinal ana- 
lógico. A alta velocidade com que a por- 
ta é lida repetidas vezes faz com que as 
variações do sinal digital imitem o sinal 
analógico. 

Imaginemos, por exemplo, que entra- 
mos com um sinal de fregiiência de 256 
Hz (nota €). Esse sinal atinge o pico 256 
vezes por segundo, e cada pico dura 
1/512 de segundo. Se fizermos a leitura 
da porta 2000 vezes por segundo, obte- 
remos um pico a cada quatro leituras. 

assim que a variação do sinal digital 
imita a onda sonora analógica — quan- 
to mais rápidas forem as leituras, mais 
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precisa será a conversão analógico- 
digital, 

O programa utiliza os valores digitais 
obtidos da fita dos modos descritos. Pa- 
ra mostrar a onda sonora graficamen- 
te, ele calcula quantos picos — ou quan- 
tos “uns” — obteve por unidade de 
tempo, o que equivale à frequência mé- 
dia daquele intervalo, Novamente, 
quanto mais rápida for a leitura, mais 
preciso será o gráfico. 

O processo de gravação é semelhan- 
te. O programa toma oito leituras e as 
armazena em um byte de memória, Es- 
se procedimento é repetido para cada oi- 
to leituras. Como um elevado número 
de leituras é feito em um curto espaço 
de tempo, o programa utiliza grande 
quantidade de memória — no Spec 
trum, por exemplo, toda a memória se- 
ria consumida por um trecho musical de 
apenas oito segundos de duração. 

A reprodução do sinal digital consti- 
tui o processo inverso, no qual a infor- 
mação armazenada na memória é envia- 
da ao alto-falante para imitar as vibra- 
ções lidas na porta do cassete durante 
a gravação. Devido às limitações do 
equipamento, o som produzido está lon- 
ge de ser de alta-fidelidade. 


O programa do Spectrum é dividido 
em duas partes — um programa BASIC 
com as rotinas de gravação, execução e 
de traçado gráfico, e uma rotina em lin- 
guagem de máquina, para ler a entrada 
do gravador cassete. 

Digite a primeira parte e grave-a uti- 
lizando a instrução: 

LINE 5 


SAVE 'ANALYSER' 


10 CLEAR 26000: RESTORE : LET 
t=0: LET x=65368B 

20 FOR n=1 TO 108 

30 READ a: POKE x,a 

40 LET t=t+a 

50 LET x=x+1 

60 NEXT n 

70 IF t=12721 THEN PRINT 
«*: BTOP 

BO PRINT "ERRO NAS LINHAS 
TA'": STOP 

90 DATA 14,64,175,8,17,208,7, 
219,254,230,64,185,40,7,62,64 
/169,79,8,60,8,29,32,239,175, 
178,40,5,30,255,21,24,230,8, 
203,63,6,0,79,201 
100 DATA 243,33,144,101,17,80, 
255,6,7,219,254,203,119,32,2, 
203,254,203,62,16,244,35,125, 
187,32,237,124,186,32,233,251, 
201,243,33,144,101,17,80,255,6 
,/8,203,70,40,4 
110 DATA 62,0,211,254,62,255, 
211,254,203,14,16,240,35,125, 


"OK 


"DA 








187,32,233,124,186,32,229,251, 
201 


A seguir, digite a segunda parte, que 
contém a rotina em código dentro de 
suas linhas DATA, A linha 80 verifica 
se houve algum erro de digitação nas li- 
nhas DATA, por meio da soma dos nú- 
meros. Execute (RUN) o segundo pro- 
grama e grave a rotina em código na fi- 
ta, numa posição imediatamente poste- 
rior ao primeiro programa com: 

SAVE 'ANALYSER' CODE 65368,109 

Ao ser rodado, O primeiro programa 
se auto-executará a partir da linha 5, 
carregando então a rotina em código. 
Completado o processo, surgirá na tela 
um menu com as três opções. 

A primeira delas solicitará que conec- 
temos o gravador e toquemos algum 
som. Quando fazemos isso e pressiona- 
mos qualquer tecla, é desenhado um 
gráfico contínuo da evolução da fre- 
quência no tempo. Aperte M para retor- 
nar ao menu principal ou F para conge- 
lar a imagem. Poderemos descongelar a 
imagem apertando qualquer tecla. 

Se escolhermos a opção dois, o pro- 
grama solicitará que iniciemos a execu- 
ção da música no gravador, informan- 
do quando a gravação estiver completa 
e retornando então ao menu. Podemos 
tocar qualquer som, mas os curtos e 
agudos serão melhor reproduzidos. As 
limitações do Spectrum fazem com que 
o som seja reproduzido mais lentamen- 
te do que foi gravado; além disso, os 
sons mais graves são filtrados — a por- 
ta de entrada do gravador não é capaz 
de diferenciar os sons abaixo de uma 
certa fregiiência. 

É evidente que ninguém vai querer 
gastar quase toda a memória do seu mi- 
cro simplesmente para incorporar uns 
poucos segundos de um som dissonan- 
te em outros programas. Contudo, se 
você quiser experimentar, use: 


SAVE CODE 26000,39360 


Para gravar a rotina em código que 
executa o som, digite: 


CODE 65440,40 


'80M* 


SAVE 'TOCA' 


A memória precisa ser protegida por 
CLEAR 25299. Para ouvir o som, digi- 
te RAND USR 65440. 

Tudo isso deixará apenas 3Kbytes de 
memória livres para seu programa, o 
que não é muito, a menos que você pro- 
grame em linguagem de máquina. 


5 CLEAR 25999: LOAD ""CODE 


10 GOSUB 200: GOSUB 500 
20 IF INKEYS$="" THEN GOTO 20 


| | | | ] | | 


21 LET C=CODE INKEYS: IF C€<49 

OR C>51 THEN GOTO 20 

22 GOSUB 30: GOSUB 200 

24 IF C=49 THEN GOTO 100 

25 IF C=50 THEN GOTO 600 

26 IF C=51 THEN GOTO 700 

30 FOR N=30 TO 50 STEP 3: 
SOUND .01,N: NEXT N: RETURN 
100 CLS : GOSUB 1000: PRINT AT 
12,4; BRIGHT 1," PRESSIONE QUAL 
QUER TECLA” 


101 IF INKEY$="" THEN GOTO 
101 

102 SOUND .1,10 

104 CLS : GOSUB 150: GOSUB 800 


105 FOR X=0 TO 255: 
DRAW 0,USR 65368 
110 IF INKEYS="n" THEN GOSUB 
30: GOTO 10 

111 IF INKEY$S="£f" 
B01: GOTO 140 

130 NEXT X: CLS : GOSUB 150: 
GOSUB 800: GOTO 105 

140 PRINT AT 0,0;" 


PLOT X,0: 


THEN  GOSUB 


": SOUND 
.1,40: PAUSE 50: TF INKEY5S="" 
THEN GOTO 140 
141 SOUND .1,10: CLS : GOTO 
104 


150 PRINT AT 0,2; BRIGHT 1;"” 
PRESSIONE (M) PARA MENU ”: 
RETURN 


200 BORDER 5: PAPER 5: INK O: 
CLS : RETURN 
500 PRINT AT 0,2; PAPER 2; INK 


7;" MENU - ANALISADOR SONORO 


510 PRINT AT 5,7;"1- GRAFICO D 
E BARRAS" ;AT 7,7;"2- GRAVAR 50 
M"sAT 9,7;"3- REPRODUZIR SOM” 
520 PRINT AT 15,4; PAPER 4;"PR 
ESSIONE (1) (2) OU (3)*: 
RETURN 
600 PAUSE 20: GOSUB 1000: 
PRINT AT 13,0;"Qualquer fecla 
para GRAVAR” 
605 IF INKEYS="" THEN GOTO 
605 
606 SOUND .05,20: 
AT 10,8;" AGUARDE”: RAND USA 
65408: SOUND .1,30: CLS : 
PRINT AT 10,6; BRIGHT 1;" GRAV 
ACAO CONCLUIDA ": PAUSE 300: 
GoTo 10 
700 RAND USAR 65440: GOTO 10 


CLS PRINT 


800 PRINT AT 1,4; PAPER 4,” ( 
F) CONGELA A IMAGEM ": RETURN 
801 PRINT AT 1,0; PAPER 4;" QU 


ALQUEK TECLA PARA CONTINUAR ”: 
RETURN 

1000 PRINT AT 4,2;"Conecte o Le 

rminal EAR do seu";AT 6,0;"grav 
ador ao terminal EAR do seu" ;AT 
8,0;"Spectrum. E toque alguma 
musica.": RETURN 


Rs a a Sd 


A rotina em código de máquina que 
lê a entrada do gravador encontra-se a 


O que é análise espectral? 

A análise espectral consiste na ob- | 
tenção dos componentes de frequên- 
cia pura, presentes em uma determina- 
da onda sonora. Explicando melhor: 
uma onda sonora complexa, como o 
som de uma flauta, a voz humana, o 
ruído de uma britadeira etc. são mistu- 
ras de diversas frequências sonoras pu- 
ras. Por exemplo, em uma certa fração 

| de tempo (medida em milissegundos), | 

| pode haver 12% de frequência 1000 
Hertz (ciclos por segundo de uma on- 
da senoidal), 8% de 1100 Hertz etc. 

O objetivo da análise espectral é 
quantificar cada frequência sonora pura 
presente em um som. Essa quantifica- 
ção, feita em termos da potência so- 

| nora média, geralmente é apresentada 
na forma de um gráfico, com a frequén- 
cia pura nas abscissas e a potência nas 
ordenadas. 

Existem diversos algoritmos para 
realizar essa análise em um computa- 
dor. O mais conhecido é o Fast Fourier 
Transform (FFT, Transformada Rápida 
de Fourier). 





partir da linha 1000 DATA. A soma dos 


números de cada linha está em seu tre- 
cho final para verificação, a fim de evi- 
tar que um erro de digitação acabe le- 
vando a um desastre. 

Digitado o programa, grave-o em dis- 
co ou fita antes de executá-lo. Quando 
isto é feito, um menu aparece na tela. 
Se houver algum erro nas linhas DATA, 
surgirá na tela uma mensagem '“'VERI- 
FIQUE A LINHA (número...)””. 

Aperte 1 para fazer a primeira opção. 
O programa solicitará que posicionemos 
a fita e liguemos o gravador. Ao pres- 
sionarmos a tecla < ENTER>, a leitu- 
ra da fita começará, juntamente com o 
desenho do gráfico correspondente. 
Aperte M para retornar ao menu ou 
<SHIFT> <> para congelar a 
imagem. 

Digite 2 para fazer a segunda opção 
(gravar um trecho). O programa faz as 
mesmas solicitações da opção 1. En- 
quanto a música estiver sendo executa- 
da, um gráfico colorido aparecerá na te- 
la. Quando a gravação estiver comple- 
ta, o gráfico será apagado e o progra- 
ma retornará ao menu. 

Aperte 3 para reproduzir a música 
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que acaba de gravar. Ao contrário do 
Spectrum, o TRS-Color executa a me- 
lodia na velocidade original. Se você 
quiser incorporar esse som a um outro 
programa, poderá gravá-lo em fita com: 


CSAVEM' MUSICA.',1536,13823,1536 


Se estiver usando disquetes, adicio- 
ne 1536 a estes valores. Para gravar a 
rotina em código que executa a música, 
utilize: 


CSAVEM 'TOCA',31000,31174,31091 


É necessário proteger o topo da memó- 
ria com CLEAR 200,30099 e PCLEAR 
8. Para executar o som, use EXEC 31091. 

Depois de tudo isso, deve restar mui- 
to pouco espaço para seu programa; 
use-o economicamente. 


10 PCLEAR B:CLEAR 200, 30999:CLS 
“B=191 

20 K=31000 

30 READ A:IF A<O THEN 60 

40 IF A<256 THEN POKE K,A:K=K+1 
:T=T+A:GOTO 30 

50 IF T<>A THEN PRINT “erro VE 
RIFIQUE A LINHA” ;1000+10*INT((K 
-31001)/20) : END ELSE T=0:GOTO30 
60 DEFUSR0=31000:DEFUSR1=31044: 
DEFUSAR2=31091 

70 PRINT 814,"menu”": PRINT 6131, 
"1l- GRAFICO DE BARRAS": PRINT €1 
95,"2- GRAVAR UM TRECHO": PRINT 

8259,"3- REPRODUZIR MUSICA GRAV 
ADA” 

BO AS=INKEYS:IF AS<"1” OR AS>2"3 
” THEN BO 

90 ON VAL (AS) GOSUB 200,400,600 
100 CLS:GOTO 70 

200 PMODE 4:COLOR 0,5:CLS 

210 PRINT” POSICIONE O GRAVADOR 
+ APERTE PLAY E TECLE <ENTER 
» du 

220 MOTOR ON: AUDIO ON 

230 IF INKEYS<>CHRS (13) THEN 23 
O 

240 MOTOR OFF: PRINT 8192," PRESS 
IONE 'M' PARA MENU OU [SHI 
FT] € PARA CONGELAR IMAGEM” 

250 FOR G=1LTO 4000:NEXT:MOTORON 
260 SCREEN 1,1 

270 PCLS:FOR X=0 TO 255:A=B-4*U 
SRO (0) :IF ACO THEN A=Q 

280 LINE (X,B)-(X,A), PSET 

290 IF INKEYS="M” THEN X=255:NE 
XT:MOTOR OFF: RETURN 

300 NEXT:GOTO 270 


Um sinal analógico que entra 

pela porta do gravador cassete é 
lido 2000 vezes por segundo. 

Ao ultrapassar a voltagem limiar, o 
sinal é detectado e registrado 

como 1. Os sinais abaixo desse nível 
de tensão são registrados como O. 

O traçado gráfico digital produzido 
imita a onda sonora analógica. 


APLICAÇÃO EM JOGOS 

O programa listado nesse artigo po- 
de tornar seus jogos mais interessan- 
tes. Como ele nos permite gravar na 
memória a imitação de qualquer som de 
entrada, fica fácil usar a reprodução 
desse som em um jogo. 

Podemos, por exemplo, acrescentar 
muita emoção a uma aventura introdu- 
zindo no programa ruídos de explosões, 
tiros e até uma mensagem curta de pa- 
rabéns ao jogador. Digitalizando os 
sons com o auxílio de nosso programa, 
eles serão “tocados” pelo alto-falante 
do micro no momento certo. Você há 
de concordar que, com esse truque, a 
qualidade do jogo será incomparavel- 
mente melhor. 





400 CLS: PMODE3:MOTOR ON:AUDIO O 

N: PRINT” POSICIONE O GRAVADOR, 

APERTE PLAY E TECLE <ENTER>" 

410 IF INKEYS<>CHAS (13) THEN 410 

420 SCREEN 1,0:N=USRA (O) 

430 MOTOR OFF:RETURN 

600 CLS: PRINT”  REPRODUZINDO TR 

ECHO GRAVADO” 

610 N=USR2(0) 

620 PRINT €129,"NOVAMENTE (S/N) 
E Did 


630 AS=INKEYS:IF AS<>2"5S”" AND AS 
<>"N” THEN 630 

640 IF A3S="5" THEN 600 

650 RETURN 

1000 DATA 26,80,206,255,32,142, 
2,233,204,0,0,102,196,37,10,16, 
163,132,48,31,1915 

1010 DATA 38,245,126,180,244,19 
5,0,1,32,7,102,196,36,237,16,16 
3,132,48,31,38,2067 

1020 DATA 245,126,180,244,26,80 
,142,0,0,48,31,38,252,220,25,13 
1,0,1,52,6,1847 

1030 DATA 158,186,198,8,134,11, 
74,38,253,118,255,32,105,132,90 
139,4,18,18,32,1903 

1040 DATA 4,48,1,198,8,1/2,228, 
38,231,53,134,26,80,182,255,1,1 
32,247,183,255,2476 

1050 DATA 1,182,255,3,132,247,1 
83,255,3,182,255,35,138,8,183,2 
55,35,158,186,220,2916 

1060 DATA 25,131,0,1,52,6,134,8 
,/92,2,230,128,88,96,4,134,252,3 
2,3,79,1397 

1070 DATA 33,253,183,255,32,134 
,/8,74,38,253,33,251,106,228,39, 
8,109,159,31,64,2291 

1080 DATA 30,136,32,224,134,8,1 
67,228,172,97,38,214,53,146,167 
9,72 












MILITAR 


Neste último artigo da série sobre 
jogos de guerra, transformaremos o 
micro em um adversário inteligente. 
Veja como a heurística pode 
melhorar a estratégia de seu inimigo, 


O jogo está completo, mas, até o mo- 
mento, não oferece maiores dificulda- 
des ao jogador. Como o computador só 
pode fazer movimentos aleatórios pelo 
tabuleiro, a superioridade do homem so- 
bre a máquina torna-se absoluta em ape- 
nas algumas partidas. Qualquer estraté- 
gia é capaz de derrotar o computador, 
pois este faz seus lances independente- 
mente dos movimentos do jogador. 

Quando a vitória fácil começa a nos 
entediar, a saída é fortalecer nosso opo- 
nente. Isso significa incluir mais rotinas, 
Como a principal dificuldade na progra- 
mação de jogos do tipo Capa e Espada 
é exatamente a limitação da memória — 
sobretudo nos micros das linhas Apple 
e TK-2000 —, tudo o que se adicionar 
ao programa deve reunir simplicidade e 
eficácia. 


UM INIMIGO MAIS FORTE 


Há duas maneiras de tornar o com- 
putador um adversário mais forte. Uma 
delas consiste em reconhecer sua limi- 
tação intelectual dando-lhe unidades su- 
periores, em força, às do jogador. A 
maioria dos jogos comerciais adota es- 
sa solução, que é, sem dúvida, a de pro- 
gramação mais fácil. 

Para observar o efeito de tal mudan- 
ça, basta que se adicione uma linha ao 
programa. Você logo percebera que es- 
ta não é realmente a saida ideal. Con- 
tudo, não custa experimentá-la: seu úni- 
co trabalho será introduzir — e depois 
apagar — a linha que dá a ''força ex- 
tra” ao computador. 

O elemento da matriz da tropa que 

contém a força inicial da unidade é o 6. 
Para aumentá-lo, digite: 


INTELIGÊNCIA 


A A 43 PROGRAMAÇÃO DEJOGOS 43 | 








665 IF 3=0 THEN LET T(9+1,6)= 
T(3+1,6)+EN A rd LET T(jI+>1, 
71=T(3+1,6) : 


pu 


665 IF J=8 THEN T(J+I,6)=T(J+I, 
6)+RND(100):T(J+1,7)=T(J+1,6) 


665 IF J = 8 THENT(J+ 1,6) = 
T(J + 1,6) + EN R(100):T(J + 
1.7) = T(J + 1,6) 


665 IF J=8 THEN T(J+1,6)=TiJ+I, 
6)+RND(100):T(J+1,7)=T(J+1,6) 


O programa somará um número ran- 
dômico ao poder inicial da unidade, co- 
locando o resultado no seu poder atual. 


INTELIGÊNCIA MILITAR 


Um oponente com forças iguais e, 
ainda, inteligente será bem mais interes- 
sante do que um inimigo forte demais 
e intelectualmente incapaz, Contudo, 
aumentar a inteligência é bem mais di- 
fícil que aumentar a força. 

Os conceitos utilizados na vrograma- 
ção da inteligência em Capa e Espada 
são bem diferentes daqueles que vimos 
em Otelo ou em A Raposa e os Gansos. 

Nesses jogos de tabuleiro, os movi- 
mentos são muito bem definidos. Em 
ambos é possível prever movimentos fu- 
turos bem como critérios exatos de su- 
cesso, utilizando a pesquisa em árvore 
e outros processos mais simples. Além 
disso, os algoritmos utilizados nos pro- 
gramas não envolvem elementos de aca- 
so. No caso de 4 Raposa e os Gansos, 
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o algoritmo é muito eficiente nos rveis 
de dificuldade mais altos, tornando mui 

to custosa a vitona do jogador. Em fe 
to, o algoritmo é mais simples, otereçen 

do Maeda diuliculdade 

Nos jogos de guerra é quase impos 

sivel deli um algoritmo. Não há mo 

vimentos determinados para nenhum 
dos lados = e, nesse aspecto, a diferen 

ça entre jogos de guerra é sadrcs vem 
a tona, No xadrez não existe O acaso É 
todos os elementos envolvidos estão Te 

acionados aos movimentos e posições 
no tabuleiro. Os jogos de guerra, do 
contrário, anclucin vários elementos 
aleatórios e exigem à consideração de 
numerosas variáveis — armadura, mo 

ral, capacidade de movimento, poder 
etc, Algumas dessas variáveis são intel 
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dependentes, outras não. E, acima de 
tudo, não há receita para a vitória: ne- 
nhum procedimento leva inevitavelmen- 
te ao triunfo. 

Poderíamos examinar a possibilida- 
de de definir um algoritmo eficaz para 
o nosso jogo. Mas este seria, de qual- 
quer maneira, extremamente complexo, 
e tornaria o programa grande e lento de- 
mais. Na prática, a saída para progra- 
mas grandes, complicados e sem algo- 
ritmos definidos é dada por um conjun- 
to de heurísticas. 

Uma heurística é apenas uma regra 
prática que parece funcionar na maio- 
ria dos casos. Não há garantias de que 
ela funcione nem de que não leve a er- 
ros brutais em determinadas situações. 
Geralmente, no entanto, vale a pena ten- 
tar; afinal, este é o procedimento da 
maior parte das pessoas diante de mui- 
tos problemas complicados. 

O programa conterá, então, uma lis- 
ta de regras práticas, a saber: 


* Se você é uma unidade de arqueiros 
e existe uma unidade inimiga ao seu al- 
cance, atire. 


e Se você se envolver em uma batalha 
e estiver perdendo, tente ir em direção 
contrária. 


* Se você está perto de uma unidade ini- 
miga mais forte, afaste-se. 


e Se você está próximo a uma unidade 
inimiga mais fraca, aproxime-se. 


No último caso, o computador leva 
vantagem, já que conhece o poder das 
unidades do jogador. Este, ao contrá- 
rio, não tem acesso à mesma informa- 
ção sobre as tropas inimigas. 





CONDUTA PLANEJADA 


Além dessas regras, o computador 
precisa de um plano geral de conduta. 
O desenrolar de uma guerra nunca é dei- 
xado ao acaso. O plano dependerá das 
condições de vitória — se esta depende, 
por exemplo, da morte do comandan- 
te, poderá ser conveniente usar todas as 
forças contra o quartel-general. Como 
em Capa e Espada a vitória depende de 
causar mais baixas ao inimigo do que 
sofrê-las, o plano do computador terá 
esse objetivo. 

Um modo simples de eliminar as tro- 
pas inimigas consistiria em atacar uni- 
dades fracas com unidades fortes. Mas 
esta seria uma estratégia difícil de pro- 
| gramar. Ela poderia ser simplificada pa- 
ra “concentre todas as suas forças nu- 


ma posição”. Fazendo isso, as forças do 
computador superariam as do jogador 
— desde que este não tivesse planejado 
a mesma coisa. Essa estratégia, porém, 
tem uma consequência: as forças do jo- 
gador superariam as do computador em 
outra parte do tabuleiro — e aqui a heu- 
rística falharia. 

Para que o jogador não possa prever 
a ação do inimigo, o computador deve 
ter algumas opções abertas. Novamen- 
te preservando a simplicidade, pode- 
mos fazer a máquina escolher sempre, 
para concentrar suas forças, uma das 
posições ocupadas por unidades do jo- 
gador. Porém, uma rotina verificaria es- 
sas posições, transferindo a concentra- 
ção ao acaso, a cada volta do laço prin- 
cipal. Isso manteria o jogador na incer- 
teza, ao mesmo tempo que o plano do 
computador seguiria seu curso. 

Um segundo aspecto do jogo a ser in- 
teligentemente controlado é a ação in- 
dividual das unidades. Cada uma delas 
deve ser capaz de responder às condições 
locais do campo de batalha, indepen- 
dentemente do plano geral. Uma unida- 
de não deve, por exemplo, dirigir-se ao 
ponto de concentração se há unidades 
inimigas mais fortes no caminho. 

Quando o computador tiver que dar 
ordens, ele fará uma série de testes, nu- 
ma segiiência cuidadosamente escolhi- 
da. Essa escolha obedece a certas regras, 
elaboradas conforme dois critérios. Pri- 
meiro: como os testes precisam ser exe- 
cutados com a maior rapidez possível, 
os que não se aplicam à situação devem 
ser descartados. Segundo: os testes mais 
importantes serão realizados no início, 
de maneira a impedir que uma decisão 
seja tomada com base em um fator me- 
nos relevante. 

As regras usadas no programa são as 
seguintes, por ordem de importância: 


e Se a unidade está em combate e ven- 
ceu na última vez, as ordens são manti- 
das. Ignoram-se as outras condições, 


e Se a unidade está em combate e per- 
deu na última vez, deve se afastar do ini- 
migo. Isso nem sempre é possível, pois 
ela pode estar na borda do mapa ou ter 
o caminho de fuga obstruido. 


e Se uma unidade de arqueiros tem um 
alvo ao alcance, ela deve atirar. A posi- 
ção dessa regra assegura que os arquei- 
ros prefiram atirar a se envolver em 
combate corpo a corpo. 


e Se existe uma unidade inimiga mais 
fraca a uma distância inferior ao deslo- 
camento máximo, MARCHE em dire- 
ção a ela. Entretanto, se a unidade for 


mais forte, afaste-se. Este é um teste de- 
morado, uma vez que leva em conta as 
unidades inimigas. 


e Dirija-se ao ponto de concentração. 


Mesmo essas poucas regras levam um 
bom tempo para serem consideradas, di- 
minuindo bastante a velocidade do jo- 
go. Este é o preço a ser pago por um jo- 
go inteligente. Não haverá, porém, es- 
peras tão longas e exasperantes como em 
A Raposa e os Gansos. 





ROTINAS ADICIONAIS 


Apague as linhas 1770 a 1790 antes 
de adicionar estas rotinas. 


360 DIM tõS(8,12): DIM 085,12) 
DIM w$(5,9): DIM m$(5,12): 


DIM aS(4,12): DIM r$(4,12): 
DIM c(8) 

416 LET sp=1 

1665 IF wn>8B THEN LET c(wn-8)= 
B 

1666 IF 10>8 THEN LET c(lo-8)= 
T(wn,2) 


1760 LET ra=st: LET rb=sh: LET 
rc=fx: LET rd=fy: GOSUB 3000 
2140 REM Inimigo 

2142 REM Loop 

2143 LET r=EN r(10) 

2144 IF r=1 OR T(sp,1)>3 THEN 
LET sp=FN r(B) 

2145 IF r=1 AND T(mp,1)>3 THEN 
GOTO 2142 

2150 IF c(e-8)=B THEN RETURN 
2155 IF c(e-B)<>0 THEN LET T(e 


1)=3: LET T(e,2)=c(e-B): LET c 
(e-8)=0: RETURN 

2170 IF T(e,3)=2 THEN LET ra=l 
' LET rb=e: LET rc=h: LET rd=5: 
GOSUB 3000: IF qp<>-1 THEN LE 

T T(e,1)=1: RETURN 

2180 LET T(e,1)=3 

2181 LET hp=5: LET vp=5: LET mv 
=0 

2182 FOR v=1 TO B 

2183 LET zp=0: GOSUB 3100 

2184 IF zp<>0 THEN GOSUB 3200 
2185 NEXT v 

2187 IF hp<>5 AND vp<>25 THEN BR 
ETURN 

2188 IF mv<>0 THEN LET T(e,2)= 


mv: RETURN 

2189 LET hp=T(e,B)-T(Bp,8): LET 
vp=T(e,9)-T(sp,9): GOSUB 3200 
2190 RETURN 

3000 REM 

3010 LET qp=-1 

3020 FOR ms=ra TO (ra+7) 

3030 LET xx=ABS (T(m,8)-T(rb,8B) 
): LET vy=ABS (T(m,9)-T(rb,9)) 
3040 IF xx<rc AND yycrd AND Tim 
«1)<4 THEN LET rec=xx: LET rdsy 
v: LET qp=m 





3050 NEXT m ' 
3060 RETURN 

3100 REM 

3110 IF T(v,1)>3 THEN RETUAN 
3120 LET xx=ABS (T(v,8B)-T(e,8B)) 
* LET vyy=ABS (T(v,9)-T(e,9)) 
3130 IF Tí(v,7)>=T(e,7) AND xx<5 
AND vy<5 THEN LET mv=T(v,2) 
3140 IF xx<hp AND vy<vp THEN L 
ET hp=xx: LET vp=yy: LET zp=l: 
RETURN 

3150 RETURN 

3200 REM 

3210 IF hp>=0 THEN LET lp=1 
3220 IF hp<0O THEN LET 1p=3: LE 
T hp=ABS (hp) 

3230 IF vp>=0 AND ABS (vp)2hp T 
HEN LET lp=Z 

3240 IF vp<O AND ABS (vp)>2hp TH 
EN LET 1lp=4: LET vp=ABS (vp) 
3250 LET T(e,2)=lp 

3260 RETURN 


360 DIM T$S(8),05(5),WS(5),MS(5) 
,AS(4),R$(4),C(B) 

416 5P=1 

1665 IF WN>B THEN C(WN-B)=8B 
1666 IF LO>B THEN C(LO-8)=TC(WN, 
2) 

1760 RA=ST;RB=-SH:RC=FX:RD=FY:GO 

SUB 3000 

2140 REM INIMIGO 

2142 REM LOOP 

2143 R=BND(10) 

2144 IF R=1 OR T(SP,1)>23 THEN 8 
P=RND (8) 

2145 IF R=1 AND T(SP,1)>3 THEN 
2142 

2150 IF C(E-8)=B THEN RETURN 
2155 IF C(E-8)<>0 THEN T(E,1)=3 
“T(E,2)=C(E-8) :C(E-B) =D: RETURN 
2170 IF T(E,3)=2 THEN BA=1:RB=E 
:RC=5:AD=5:GOSUB 3000:1IF GP<>-1 
THEN T(E,1)=1:RETURN 

2180 T(E,1)=3 

2181 HP=5:VP=5:MV=0 

2182 FOR V=1 TO 8 

2183 ZP=0:GOSUB 3100 

2184 IF ZP<>0 THEN GOSBUB 3200 
2185 NEXT V 

2187 IF HP<>5 AND VP<S>25 THEN RE 
TURN 

2188 IF MU<>O0 THEN T(E,2)-MV:RE 
TURN 

2189 HP=T(E,B)-T(SP,B):VP=T(E,9 
)-T(SP,9) :GOSUB 3200 

2190 RETURN 

3000 REM 

3010 GP=-1 

3020 FOR M=BRA TO (RA+7) 

3030 XX=ABS(T(M,B)-T(RB,B)):YY= 
ABS(T(M,9)-T(RB,9)) 

3040 IF XX<RC AND YY<AD AND T(M 
«L)<4 THEN RC=XX:RD=YY:GP=M 
3050 NEXT M 

3060 RETURN 

3100 REM 

3110 IF T(V,1)>3 THEN RETURN 
3120 XX=ABS(T(V,B)-T(E,B)):YY=A. 











BS(T(V,9)-T(E,9)) 

3130 IF T(V,7)>=T(E,7) AND XX<5 
AND YY<5 THEN MV=T(V,2) 

3140 IF KX<HP AND YY<VP THEN HP 
=XX:VP=YY:ZP=]: RETURN 

3150 RETURN 

3200 REM 

3210 IF HP>=0 THEN LP=1 

3220 IF HP<O THEN LP=3:HP=ABS(H 
P) 

3230 IF VP>=0 AND ABS(VP)>HP TH 
EN LP=2 

3240 IF VP<O AND ABS(VP)>HP THE 
N LP=4:VP=ABS (VP) 

3250 T(E,2)=LP 

3260 RETURN 


DI 
360 DIM T$S(8),08(5),WS(5).M3(5 


),AS(4),R$S(4),C(B) 
416 SP = O 


1665 IF WN > 8 THEN C(WN - 8) 
= 8 

1666 IF LO > 8 THEN C(LO - 8) 
= T(WN,2) 


1760 RA = ST:RB = SH:RC = FX:RD 
= FY: GOSUB 3000 


2140 REM SELECAO 

2143 BR = EN R(10) 

2144. IFR=1 OR TISP,1)>3T 

HEN SP = FN R(8) 

2145 IF BR = 1 ANDT(SP,1) > 3 

THEN 2143 

2150 IF C(E - B) = B THEN RET 

URN 

2155 IF C(E- 8) < > O 'THENT 
(E,1) = 3:T(E,2) = C(E - B):CiE 
- 8) = O: RETURN 

2170 IF T(E,3) = 2 THEN RA = 1 


“RB = E:RC = 5:AD = 5: GOSUB 30 
00: IF GP < > - 1 THEN T(E,1) 
= 1: RETURN 

2180 T(E,1) = 3 

2181 HP = S:VP = 5:MV = O 


2182 FOR V = 1 TOS 

2183 ZP = O: GOSUB 3100 

2184 IF ZP < > O THEN THEN 
GOSUB 3200 

2185 NEXT V 

2187 IF HP < > 5 AND VP< 2 


5 THEN RETURN 
2188 IF MV < >0 
= MV: RETURN 

2189 HP = T(E,8B) - 
T(E,9) - T(BE,9): 
2190 RETURN 

3000 REM ALCANCE 


THEN T(E,2) 


GOSUB 3200 


3010 GP = - 1 

3020 FORM = RA TO (RA + 7) 
3030 XX = ABS (T(M,8) - T(RB,8B 
J)J:vYY = ABS (T(M,9) - T(RB,9)) 


3040 IF XX < RC AND Ty < RD AN 
D T(M,1) < 4 THEN RC = XX:BD = 
or = 


3050 NEKT M 

3060 RETURN 

3100 REM PODER 

3110 IF T(V,1) > 3 THEN RETUR 
N 


3120 XX = ABS (T(V,8) - T(E,8) 
J:TY = T(V,9) - T(E,9)) 

3130 IF T(V,7) > = T(E,7) AND 
XX < 5 AND YY < 5 THEN MV = T( 

V,2) 

3140 IF XX < HP AND YY < VP TH 
EN HP = KK:VP = YY:ZP = 1: RETU 

RN 

3150 RETURN 

3200 REM CONCENTRACAO 

3210 IF HP > = O THEN LP = 4 
3220 IF HP < O THEN LP = 3:HP 
= ABS (HP) 

3230 IF VP > = O AND ABS (VP 
) > HP THEN LP = 2 

3240 IF VP < O AND ABS (VP) > 
HP THEN LP = 4:VP = ABS (VP) 
3250 T(E,2) = LP 

3260 RETURN 


As rotinas que começam em 3000 de- 


vem ser renumeradas a fim de liberar es- 
paço para essas linhas. Digite: 


RENUM 4000, 3000 
Em seguida, acrescente estas linhas: 


360 DIM T$(8),0S(5).W5(5),MS(5) 
(AS(4),R$(4),C(8B) 

416 SP=1 

1665 IF WN>8 THEN C(WN-8B)=8 
1666 IF LO>B THEN C(LO-8)=T(WN, 


2) 

1760 RA=ST:AB=SH:RC=FX:AD=FY:GO 
SUB 3000 

2140 REM INIMIGO 


2142 REM LOOP 

2143 R=BND(10) 

2144 IF R=1 OR T(SP,1)>3 THEN 5 
P=RND (8) 

2145 IF R=1 AND T(SP,1)>3 THEN 
2142 

2150 IF C(E-8)=8B THEN RETURN 
2155 IF C(E-B)<>0 THEN T(E,1)=3 
“T(E,2)=C(E-8) :C(E-8)=0: RETURN 
2170 IF T(E,3)=2 THEN RA=1:RB=E 
“AC=5:BD=5:GOSUB 3000:IF GP<>-1 
THEN T(E,1)=1:RETURN 

2180 T(E,1)*3 

2181 HP=5:VP=5:MV=0 

Z1B2 FOR V=1 TO 8 

2183 ZP=0:GOSUB 3100 

2184 IF ZP<>0 THEN GOSUB 3200 
2185 NEXT V 

2187 IF HP<>5 AND VP<>5 THEN RE 
TURN 
2188 
TURN 
2189 HP=T(E,8)-T(SP,B):VP=T(E,9 
)J-T(SP,9) :GOSUB 3200 

2190 RETURN 

3000 REM 

3010 GP=-1 

3020 FOR M=BA TO (RA+7) 

3030 XKX=ABS(T(M,B)-T(RB,8)):Yf= 
ABS(T(M,9)-T(RB,9)) 

3040 IF XX<RC AND YY<RD AND T(M 
«1)<4 THEN AC=KK:BRD=YY:GP=M 


IF MU<>O THEN T(E,2)=MV:RE 


3050 NEXT M 

3060 RETURN 

3100 REM 

3110 IF T(V,1)>3 THEN RETURN 
3120 XK=ABS(T(V,B)-T(E,8)):YY=A 


BS(T(V,9)-T(E,9)) 

3130 IF T(V,7)>=T(E,7) AND XXK<5 
AND YY<5 THEN MV=T(V,2) 

3140 IF XX<HP AND YY<VP THEN HP 
=HX:VP=YY: ZP=1: RETURN 


3150 RETURN 

3200 REM 

3210 IF HP>=0 THEN LP=1 

3220 IF HP<O THEN LP=3:HP=ABS(A 
P) 

3230 IF VP>=0 AND ABS(VP)>2HP TH 
EN LP=2 

3240 IF VP<O AND ABS (VP) >HP THE 


N LP=4:VP=ABS (VP) 
3250 TIE, 2)=LP 
3260 RETURN 





COMO FUNCIONA 


As adições anteriores à linha 2140 
cuidam de algumas variáveis extras que 
serão utilizadas. 

No início da rotina de escolha, há 
uma chance em dez de que o computa- 
dor mude o ponto de concentração. Es- 
te é verificado e modificado de acordo, 
mas não se realiza nenhuma ação neste 
estágio — outros testes precisam ainda 
ser feitos. 

Se a unidade for constituída de ar- 
queiros, a linha 2170 usa a rotina de al- 
cance para decidir se atira. Caso os ar- 
queiros não disparem, ou se a unidade 
for de outro tipo, a linha 2180 muda a 
ordem para MARCHE. A seção seguin- 
te do programa verifica cada uma das 
unidades inimigas. A linha 2183 utiliza 
a rotina de poder para determinar a di- 
reção do movimento. 

Se a unidade em questão não estiver 
envolvida em combate nem prestes a se 
envolver, a rotina de concentração (li- 
nha 3500) faz com que ela se mova em 
direção ao ponto de concentração. 


A ESCOLHA É SUA 


Você pode adicionar qualquer das 
versões aqui apresentadas, ou mesmo as 
duas, para melhorar o desempenho do 
micto, enquanto jogador. Tudo depen- 
derá do tipo de oponente que desejar. 

A própria natureza das heurísticas in- 
corporadas ao programa faz com que 
elas falhem em certas circunstâncias. Al- 
guns jogadores acharão essas régras me- 
nas adequadas do que outras eventual- 
mente deduzidas pela prática. Só um 
processo de tentativa e erro determina- 
rá as melhores estratégias e muitas ou- 
tras rotinas poderão ser tentadas. 















SECRETAS 


Neste artigo você ficará conhecendo 
novas maneiras de transmitir 
mensagens confidenciais, sem correr 
o risco de que elas sejam 

decifradas por pessoas indesejadas. 





No artigo Mensagens Secretas (pági- 
na 888), sugerimos vários métodos pa- 
ra a transmissão de informações de ca- 
ráter confidencial. Alguns deles são re- 
lativamente fáceis de serem decifrados; 
entretanto, se recorrermos ao auxílio do 
computador, poderemos chegar a méto- 
dos mais complexos e com diferentes ni- 
veis de sofisticação, 


NOVAS MENSAGENS 





COMO DECIFRAR CÓDIGOS 


Da mesma maneira que os criptogra- 
fos tentam desenvolver códigos que ofe- 
reçam mais segurança, muitos especia- 
listas estudam uma forma de frustrar es- 
sas tentativas. Uma arma muito pode- 
rosa para se decifrar simples códigos de 
substituição ou de transposição consis- 
te na contagem de frequência das letras. 
Em português, as letras que ocorrem 
com mais frequência são — nesta ordem 
— A,E,,0,8S,R,1I, €. Desse modo, se 
em um texto codificado aparecerem 
muitas vezes as letras AEOSRIC, pro- 
vavelmente você estará manipulando um 
código de transposição. Se outras letras 


» 


COMO DECIFRAR CÓDIGOS 
PROGRAMA DE DISTRIBUIÇÃO 

e: DE LETRAS 
CÓDIGOS MULTIPLICATIVOS 

“ LIVRO-CÓDIGO 


se repetirem mais vezes, a codificação 
pode ter sido feita com um método de 
substituição. E importante levar em con- 
ta que essa distribuição é exclusiva de 
cada idioma. Portanto, torna-se funda- 
mental saber em que língua foi escrita 
a mensagem. 

Seja como for, será necessário fazer 
a contagem da frequência das letras na 
mensagem. Isso pode consumir muito 
tempo e é um processo bastante suscep- 
tível de erros. O programa aqui apresen- 
tado lhe será útil nesses casos. Basta que 
você digite o texto e o computador ime- 
diatamente o informará do número de 
vezes que cada letra apareceu. 

A figura da página 109] mostra a fre- 
quência das letras em um texto consti- 











tuído de cem palavras. Observe que os 
números seguem, razoavelmente, o prin- 
cípio que acabamos de comentar. 

Agora, digite o programa e veja co- 
mo isso funciona na prática. 


15 POKE 23658,8B 

20 BORDER O: PAPER O: 

CLS 

30 PRINT TAB 

REQUENCIA”** 

40 PRINT TAB 12;"CUIDADO”'* 

50 PRINT FLASH 1L;AT 4,7;"NÃO 
DEIXE ESPACOS";,AT 5,9;" ENTR 

E PALAVRAS” ** 

60 DIM n(28) 

70 PRINT * Para finalizar ent 

rada do texto digite '*'*" 

BO FOR t=1l TO 28: LET n(tJ)J=0: 
NEXT t 
90 INPUT 
as 
100 
110 
120 
130 
140 
THEN 
150 
160 
170 
180 
190 
tra 
200 


INK 7: 


5; "CONTAGEM DA F 


"Introduza o texto"; 

IF a$="*" THEN GOTO 180 

CLS 

FOR 1=1 TO LEN as 

FOR j=1 TO 26 

IF 3=CODE (as(i TO 1))-64 
LET n(5)=n(j)+1 

NEXT 3 

NEXT 1 

GOTO 90 

CLS 

PRINT “Letra 
Freqg'” 

FOR ài=1 TO 13 

210 PRINT TAB 2;CHAS (6d4d+i); 

TAB 10;n(i); TAB 19;CHBAS (77+1) 

'TAB 27;n(13+1) 

220 NEXT à 

230 STOP 


20 CLS 

30 PRINT €5,"CONTAGEM DA FREQUE 
NCIA” 

40 PRINT 876,"CUIDADO”" 

350 PRINT €134,"NAO DEIXE ESPACO 
S": PRINT €166," ENTRE AS PALAVRA 


Freq' Le 


60 DIM N(28) 





A tabela de frequência das letras tem 
grande utilidade na decifração de códigos. 





| | 
| , 
E 
E = — e e = a cacem 





70 PRINT 6225," PARA FINALIZAR E 
NTRADA DO TEXTO E EMITIR RESULT 
ADOS DIGITE *" 

80 FOR T=1 TO 28:N(T)=0:NEXT 

90 INPUT"INTRODUZA O TEXTO ";AS 
100 IF AS="*" THEN 180 

110 CLS 

120 FOR I=1l TO LEN(AS) 

130 FOR J=1 TO 26 

140 IF J=ASC(MIDS(AS,1,1))-64 T 
HEN N(J)=N(J)+1 
150 NEXT J 

160 NEXT I 

170 GOTO 90 

180 CLS 

190 PRINT "LETRA 
RA FREQ'” 

200 FOR I=1l TO 13 
210 PRINT TAB(2); CHARS (64+1); TAB 
(10) ;N(CI); TAB (19); CHR$(77+I); TA 
B(27);N(13+T) 

220 NEXT 

230 END 


[io 


20 HOME 

30 PRINT TAB( 9)"CONTAGEM DE 

FREQUENCIA”: PRINT 

40 PRINT TAB( 17)"CUIDADO”: P 

RINT 

50 PRINT TAB( 12)"NAO DEIXE E 

SPACOS”": PRINT TAB( 12) ENTRE 

AS PALAVRAS” 

60 DIM N(28) 

70 PRINT : PRINT PRINT TAB( 
B)"PARA FINALIZAR A ENTRADA”: 
PRINT TAB( 11)” DO TEXTO DIGIT 


FREQ' LET 


E ** 

BO FOR II =1TOZB:N(T)=0O: N 

EXT 

90 PRINT : INPUT "DIGITE O TEX 

TO ";AS 

100 IF AS = "*” THEN 180 

110 HOME 

120 FOR I=1TO DLEN(AS) 

130 FOR J = 1 TO 26 

140 IF J = ASC ( MIDS (AS,I,1 

)) - 64 THEN N(J) = N(J) + 1 

150 NEXT J 

160 NEXT IT 

170 GoTo 90 

180 HOME 

190 PRINT "LETRA FREQ LETR 

À FREQ” 

200 FOR I =1TOl3 

210 PRINT TAB( 2); CHR$S (64 + 
1); TAB( 10);N(I); TAB( 17); € 

HAS (77 + 1); TAB( 25);N(13 + I 
) 

220 NEXT 1 

230 END 

20 CLS 


30 PRINT TAB(9)"CONTAGEM DE FRE 
QUENCIA”" : PRINT 

40 PRINT TAB (17)"CUIDADO” : PRINT 
50 PRINT TAB(12)"NÃO DEIXE ESPA 
ÇOS”": PRINT TAB(12)"ENTRE AS PAL 
AVRAS”" 





60 DIM N(28) 

70 PRINT: PRINT:PRINT TAB(8B)"PAR 
A FINALIZAR A ENTRADA": PRINT TA 
B(12)"DO TEXTO DIGITE *” 

80 FOR I=1 TO 28:N(T)=0:NEXT 

90 PRINT: INPUT “DIGITE O TEXTO” 
AS 
100 
110 
120 
130 
140 
HEN 
150 
160 
170 
LB0 
190 


IF A$="*" THEN 180 

CLS 

FOR I=1l TO LEN(AS) 

FOR J=1 TO 26 

IF J=ASC(MIDS(AS,1I,1))-64 T 
N(J)=N(J)+1 

NEXT q 

NEXT I 

GOTO 90 

CLS 
PRINT 
FREQ” 
200 FOR I=1l TO 13 

210 PRINT TAB(2); CHARS (64+T); TAB 
()JO);N(I)J;TAB(1I7);CHAS(/Z7+I); TA 
B(25):;N(13+T) 

220 NEXT IT 

230 END 


“LETRA FREQ LETRA 


A estrutura operacional deste progra- 
ma está fundamentada em um simples 
mecanismo de contagem. 

Em sua primeira parte é atribuido o 
valor zero às 28 variáveis indexadas, 
sendo que 26 dessas variáveis serão usa- 
das para a contagem da fregiiência com 
que aparecem as 26 letras. As duas va- 
riáveis restantes foram incluídas tendo 
em vista a possibilidade de uma futura 
ampliação do programa; nesse caso, po- 
dem ser incorporados algarismos ou 
quaisquer outros sinais gráficos. 








MU] 


Durante a Guerra Civil Norte-Ame- 
ricana (1861-1865) criou-se um tipo es- 
pecial de código para a comunicação en- 
tre as tropas, que funciona da seguinte 
forma: suponhamos que se queira pas- 
sar para um oficial preso a mensagem 
ESCAPAR PARA LONDRES. Nesse 
caso, a primeira letra da frase seria co- 
locada na primeira linha, a segunda le- 
tra na segunda linha, a terceira letra de 
volta na primeira linha e assim por dian- 
te, de tal maneira que a frase acabaria 
ficando assim: 


ECPRAAODE 
SAAPRLNRS 


Escrita por extenso, a mensagem se- 
ria a seguinte: ECPRAAODE- 
SAAPRLNRS; dividida a fim de con- 
fundir o inimigo: ECPRAA OD 
ESAAP RLNRS. 

Na verdade, esse código é um caso es- 
pecial do que se chama atualmente có- 
digo multiplicativo. 

Em nossa mensagem, o texto contém 
dezoito caracteres. Estes podem ser ar- 
ranjados em matrizes do tipo: 2x 9,9 
x2,3x6,0ou 6x 3, como mostram as 
figuras da página 1095. 

Qualquer pessoa que queira decifrar 
a mensagem, sem saber que se trata de 
um código multiplicativo, terá muito 
trabalho. O processo de codificação, no 
entanto, é muito simples: tudo o que se 


A 





tem a fazer é escrever a mensagem ver- 
ticalmente, letra por letra, preenchendo 
totalmente a primeira coluna da matriz. 
Em seguida, partimos para a próxima 
coluna e repetimos o processo, até que 
a mensagem termine e a matriz esteja 
completa. Finalmente, copiamos as li- 
nhas lado a lado, começando sempre pe- 
la primeira. 

É importante que a mensagem ocu- 
pe totalmente a matriz escolhida. Para 
tanto, podemos introduzir no texto al- 
guns caracteres ou palavras sem nexo, 
que terão a função extra de confundir 
quem tentar decifrá-lo. 

O laço que se encontra entre as linhas 
140 e 210 é a parte principal do progra- 
ma, responsável tanto pela codificação 
como pela decodificação. 


20 BORDER O: INK 7: 
CLS 

30 PRINT TAB (6);"CODIGO MULT 
IPLICATIVO” 

40 PRINT 
50 PRINT 
ÃO DEIXE 
AS” 

60 INPUT 
'm$ 

70 INPUT 


PAPER O: 


PRINT PRINT 
FLASH 1; PAPER 2;"N 
ESPACOS ENTRE PALAVR 


"INTRODUZA O TEXTO " 


"LINHAS ? ";m 

BO INPUT "COLUNAS ? "i;n 

90 INPUT "(c)ODIFICAR OU (dJ)E 
CODIFICAR ? ";es 


100 PAUSE 50: CLS 
110 IF e$="c” THEN LET x=m 
120 IF e$="dº THEN LET x=n 





| eai || | 
Ê u E 
| , E ai dl te t Em a “me E 


130 DIM dS(x,LEN mS/x) 

140 FOR 1=1 TO x 

155 LET aS="": LET m3=m3+" * 
160 FOR 3=1 TO LEN m3-1 STEP x 
180 LET a$=aS+mS(1+5-1 TO 1+3- 
1) 

190 NEXT 3 

195 LET d9(1)=as 

197 LET m$=mS( TO LEN m$-1) 
200 PRINT d3(i)j:;: IF eS="c” 
THEN PRINT " ”; 

210 NEXT à 

220 STOP 

20 CLS 


30 PRINT 66,"CODIGO MULTIPLICAT 
IVO” 

40 PRINT: PRINT: PRINT 

50 PRINT"NAO DEIXE ESPACOS ENTR 
E PALAVRAS” 

60 PRINT: INPUT"TEXTO 
70 INPUT"LINHAS ";M 

80 INPUT"COLUNAS ":N 
90 INPUT” (C)ODIFICAR OU 

IFICAR ";ES 

100 FOR L=1 TO 1000:NEXT 
110 IF E$="C” THEN X=M 
120 IF ES="D” THEN X=N 
130 DIM DS(X) 

140 FOR I=1 TO X 

150 DO(T)e” * 

160 FOR J=1 TO LEN(MS) 

1/0 BS=MIDS (MS, I+J-1,1) 
180 DS(I)=DS(I)+BS 

190 NEXT q 

200 PRINT DS(I) 

210 NEXT I 

220 END 


"MS 


(DJ ECOD 


STEP X 


+ 














| Há vantagens em se criptografar um 
programa de computador? 

À resposta depende do tipo de pro- 
grama. Não há nenhuma vantagem em 
criptografar um programa em lingua- 
gem de máquina (código binário) — ta- 
refa, aliás, impossível para muitos mi- 

| Ccros, que não poderão executá-lo de- 
pois. Mas, se o programa estiver em 
código-fonte (linguagem de alto nível, 
como BASIC), às vezes pode ser van- 
tajoso criptografá-lo. 

O objetivo da criptografia de progra- 
mas é protegé-los contra a cópia e a 
imitação ilegais. Uma aplicação muito | 
frequente ocorre na transmissão de | 
programas de computador em sistemas | 
telemáticos. Aqui, o objetivo é torná- 
los imunes à cópia ilegal no momento | 
da transmissão. Nesse caso, o interes- | 
sado pode criptografar o programa co- 
mo um texto qualquer, usando um dos | 
métodos explicados neste artigo lo 
multiplicativo costuma ser o mais em- 

| pregado). | 





20 HOME 

30 PRINT TAB( 10)"CODIGO MULT 
IPLICATIVO” 

40 PRINT : PRINT : PRINT 


50 PRINT TAB( 12)"NAÃO DEIXE E 
SPACOS”": PRINT TAB( 12)" ENTRE 
AS PALAVRAS” 

60 PRINT : INPUT "TEXTO:";MS 
70 INPUT "LINHAS:";M 

B0 INPUT "COLUNAS:";N 

90 INPUT "CODIFICAR(C) OU DECO 
DIFICAR(D) :";ES 


100 FORL = 1 TO 1000: NEXT 
110 IF ES = "C” THEN X =M 

120 IF E$ = "D” THEN X = N 

130 DIM DS(X) 

140 FORI =1TOX 

150 IF E$ = "C” THEN DS(I) =” 
160 FOR J = 1 TO LEN (M$) STE 
P X 

170 BS = MIDS (MS,I + J - 1,1) 
180 DS(I) = DS(I) + BS 

190 NEXT J 

200 PRINT D$(I);: IF ES = "C” 
THEN PRINT 

210 NEXT I 

220 END 

20 CLS 


30 PRINT TAB(10) "CODIGO MULTIPL 


| | 
| | | | 
1 


MEMSAM EIA 





MESSI 





Para usar o sistema de livro-código, tanto o emissor quanto o receptor 
da mensagem precisam ter uma cópia idêntica do dicionário fixo. 


ICATIVO” 

40 PRINT: PRINT:PRINT 

50 PRINT TAB(12)"NÃO DEIXE ESPA 
ÇOS” : PRINT TAB(12)" ENTRE AS PAL 
AVRAS” 

60 PRINT: INPUT" TEXTO:" :MS 

70 INPUTºLINHAS:";M 
B0 INPUT"COLUNAS:";N 
90 INPUT"CODIFICAR(C) 
FICAR (D):"; ES 


OU DECODI 


100 FOR L=1 TO 1000:NEXT 

110 IF E$="C” THEN X=M 

120 IF ES="D” THEN X=N 

130 DIM DS(X) 

140 FOR I=1 TO X 

150 IF E$="C” THEN D$S(1)=" * 
160 FOR J=1 TO LEN(MS) STEP X 
170 B$=MIDS (M$, I+J-1,1) 

180 D3(1)=D3 (1) +BS 

190 NEXT q 

200 PRINT DS(T);:IF ES="C” THEN 
PRINT 

210 NEXT T 

220 END 


— LIVRO-CÓDIGO 


Até agora, trabalhamos apenas com 
cifras. Os códigos propriamente ditos 
consistem na substituição de uma pala- 
vra ou frase por outras. Isso exige que 
se recorra sempre a um livro-código, que 
deve ser guardado com muito cuidado, 
de modo a evitar que caia em mãos es- 
tranhas. Por esse motivo, geralmente, os 
textos são codificados e recebidos em lu- 
gares fixos, bem seguros. 

O programa seguinte monta um di- 
cionário de códigos de vinte palavras. 
Usando uma matriz bidimensional 
AS(1,)), onde |= 1 guarda a palavra e 
[=2 guarda seu código, primeiramente 
são lidas as informações após os coman- 
dos DATA. A parte seguinte, que vai da 
linha 120 à linha 170, recebe a palavra 
e imprime o código correspondente, ou 
faz o contrário, caso você tenha opta- 
do pela decodificação. 

A mensagem FUGIR DE ROMA À 


MEIA-NOITE DE DOMINGO CHE- 
GAR A NOVA YORK AO MEIO-DIA 
seria codificada como: 40476 10996 
23874 12128 26569 10996 40553 68719 
12128 54982 69783 11072. O texto codi- 
ficado: 74891 22317 69783 74832 seria 
traduzido para ENVIAR DINHEIRO 
AO ANOITECER. 

Com o próximo programa, você po- 
derá codificar e decodificar rapidamente 
suas mensagens. Nas situações reais, on- 
de são transmitidos textos muito gran- 
des e os dicionários são volumosos, O 
computador exerce um papel fundamen- 
tal, poupando bastante tempo. 


20 BORDER O: 
CLS 
25 POKE 23658,8 
30 PRINT TAB (10);"LIVRO DE C 
ODIGOS” 
40 PRINT : PRINT : PRINT 
50 DIM a$(2,20,10) 
60 FOR i=l TO 2 
70 FOR 5j=1 TO 20 
BO READ aS(i,3) 
90 NEXT 3: NEXT à 
100 INPUT "CODIFICAR (0) OU DE 
CODIFICAR (1)”;x 
110 CLS 
120 INPUT "Digite a palavra”;m 
5 
125 IF LEN m8>=10 THEN GOTO 
130 
127 FOR n=1 TO 10-LEN m$: 
m$=mS+" ": NEXT n 
130 IF m$="*" THEN GOTO 280 
140 FOR t=1 TO 20 
150 IF m$=aS(l+x,t) THEN 
PRINT aS(2-x,t) 
160 NEXT t 
170 GOTO 120 
180 DATA "BRASILIA”,"LONDRES”, 
"PARIS”,"ROMA” 
190 DATA "CHEGADA" ,"SAIDA”","VA 
PARA” ,"FUJA PARA”,"SABADO” 
200 DATA "DOMINGO”,"MEIO-DIA”", 
"AMANHECER", "MEIA-NOITE" 
210 DATA "ANOITECER”,"EM","AO" 


PAPER O: INK 7: 


LET 





ILE | : 
| 
| | | | | 
| | 
À - ns a à À e a ú l 


EROSPNCADARAPAEALS 





Usando o código de multiplicação com diversas chaves, você poderá criptografar a mesma mensagem de várias maneiras. 
O texto cifrado é sempre apresentado em grupos de letras de comprimento fixo. 


| “NO”, "ENVIE" 

220 DATA "DINHEIRO”,"COMIDA" 
230 DATA "54982","73581”,"79007 
5", “23874” 

240 DATA "68B719","68677","1032 
7” , "40476" 

250 DATA "27921","48553","1107 
2º," T038S” 

260 DATA "26569","74832","1099 
6”, "12128" 

270 DATA *69783","74891"," 2231 
7”, "98/247 

280 STOP 


20 CLS 

30 PRINT €8,"LIVRO DE CODIGO" 
40 PRINT:PRINT:PRINT 

50 DIM A$S(2,20) 

60 FOR I=1 TO 2 

f0 FOR J=1 TO 20 

BO READ AS(I,J) 

90 NEXT J,lI 

100 INPUT*CODIFICAR (0) OU DECO 
DIFICAR (1)";X 


110 CLS 

120 INPUT'DIGITE A PALAVRA ";MS 
130 IF M$="** THEN END 

140 FOR T=1 TO 20 

150 IF MS$S=AS(1+X,T) THEN PRINT 
AS(2Z-K,T) 

160 NEXT 


170 GOTO 120 

180 DATA BRASILIA, LONDRES, PARIS 
| ROMA 

190 DATA CHEGADA, PARTIDA DE,VA 
PARA, FUJA PARA, SABADO 

200 DATA DOMINGO, MEIO-DIA, AMANH 
ECER, MEIA-NOITE 

210 DATA ANOITECER, EM,AO,NO, ENV 
LE 
220 
230 
4 
240 
6 
250 
5 
260 DATA 
8 

270 DATA 69783,74891,22317,9872 
4 


DATA DINHEIRO, COMIDA 
DATA 54982,73581,900/5,238/ 


DATA 68719,68677,10327,4047 
DATA 2/921,48553,110/2,7/035 


26569,74832,10996,1212 


Dito 


20 HOME 

30 PRINT TAB( 14)" LIVRO CODIG 
40 PRINT : PRINT PRINT 
50 DIM AS(2,20) 


60 FORI=1TORZ 

70 FOR J =1TOzo 

B0 READ AS(T,J) 

90 NEXT J 

95 NEXT 1 

100 INPUT "CODIFICAR(O) OU DEC 
ODIFICAR(I) 2";X 

110 HOME 

120 INPUT "DIGITE A PALAVRA "; 
M5 

130 IF MS = “*" THEN END 

140 FORT =1TOzZ0 

150 IF MS = AS(]I + X,T) THEN 
PRINT AS(2 - K,T) 

160 NEXT T 

170 GOTO 120 

180 DATA NOVAYORK, LONDRES, PA 
RIS, ROMA 

190 DATA CHEGAAR,PARTIB,IR,FUG 
IR, SABADO 

200 DATA DOMINGO, MEIO-DIA, TA 
ADE, MEIA-NOITE 

210 DATA ANOITECER, DF,A,ÃO, 
ENVIAR 

220 DATA DINHEIRO, SUPRIMENTO 
230 DATA 54982,/3581,90075,23 
8/4 

240 DATA 68719,68677,10327,40 
476 

250 DATA 2/921,48553,11072,70 
155 

260 DATA 26569,74832,10996,12 
128 

270 DATA 69783,74891,22317,98 
724 

20 CLS 


30 PRINT TAB(14)"LIVRO CÓDIGO" 
40 PRINT:PRINT:PRINT 

50 DIM AS(2,20) 

60 FOR I=1] TO 2 


70 FOR J=1 TO 20 
80 READ AS(I,J) 
90 NEXT J 
95 NEXT I 
100 INPUT 
DIFICAR(1) 
410 CLS 
120. INPUT 
5 
130 


"“CODTFICAR(O) OU DECO 
"4X 


“DIGITE A PALAVRA "; 


LF M$="*" THEN END 

140 FOR T=1 TO 20 

150 IF M$=AS(1+X,T) THEN PRINT 
AS(2-X,T) 

160 NEXT T 

170 GOTO 120 

180 DATA NOVAYTORK, LONDRES, PARTS 
+, ROMA 

190 DATA CHEGAR, PARTIR, IR, FUGIR 
| SABADO 

200 DATA DOMINGO, MEIO-DIA, TARDE 
«META-NOITE 

210 DATA ANOITECER,DE,A,ÃO, ENVI 
AR 
220 
230 
q 
240 
6 
250 
> 


DATA DINHEIRO, SUPRIMENTO 
DATA 54982,/3581,90075,2387 


DATA 68719,68677,10327,4047 


DATA 27921,48553,11072,7035 


60 DATA 26569,74832,10996,1212 
8 

270 
q 


DATA 69783,74891,22317,9872 


Apesar de estar limitado a apenas 
vinte palavras, O programa pode ser fa- 
cilmente ampliado. Por exemplo, se vo- 
cê quiser fazer um dicionário de cin- 
quenta palavras, bastará trocar 20 por 
SO nas linhas 50, 70 e 140. É claro que 
você terá também que fazer novas linhas 
DATA, com as palavras e códigos su- 
plementares. 

No programa atual para o Apple, vo- 
cê não poderá introduzir palavras com 
mais de dez caracteres. Caso queira am- 
pliar este número para doze, por exem- 
plo, você deve substituir 10 por 12 na 
linha 50. Essa restrição não existe nos 
outros programas. 











PÁGINAS 
GRÁFICAS 


Todos os tipos de animação relacio- 
nam-se a um fenômeno da percepção 
conhecido como persistência da visão. 
Cada imagem transmitida ao cérebro 
permanece “gravada” na memória por 
alguns instantes, mesmo que nossa vi- 
são já esteja captando uma nova ima- 
gem. Porém, quando uma série de ima- 
gens é mostrada com muita rapidez, O 
cérebro não consegue separá-las, pois 
não processa mais de doze imagens por 
segundo. As imagens parecem, então, 
sair umas das outras, e é exatamente is- 
to que dá a impressão de movimento. 

Certos livros infantis, cujas ilustra- 
ções compõem uma sequência de ima- 
gens, permitem que se perceba esse fe- 
nômeno com clareza. Folheando-os ra- 
pidamente, suas figuras parecem se mo- 
vimentar. Também o jogo de sombras 
chinesas, um dos raais remotos precur- 
sores do cinema, vale-se desse fenôme- 
no: figuras recortadas ou criadas com 
as mãos são projetadas sobre paredes ou 
telas de linho em ritmo acelerado, for- 
mando uma sombra animada. 

Finalmente, apesar dos progressos 
tecnológicos, o próprio cinema recorre 
ao mesmo princípio básico: os quadros, 
fixados em um filme, são projetados à 
velocidade de 25 unidades por segundo. 
Criam-se, assim, duas ilusões ópticas: a 
de que há uma corrente contínua de 
imagens, quando, na verdade, elas se su- 
cedem de modo descontinuo; e a de que 
coisas imóveis têm movimento. 

A montagem de um desenho anima- 
do é bem mais trabalhosa. O artista de- 
senha sobre uma folha transparente. Ao 
mudar de quadro, sobrepõe a essa fo- 
lha uma outra, e copia o desenho ante- 
rior, mudando ligeiramente sua forma. 
Tente calcular quantas cenas ele preci- 
saria desenhar para produzir um dese- 
nho animado de uma hora de duração... 


GRÁFICOS NO COMPUTADOR 





Por que não usar o computador pa- 
ra agilizar esse processo, se até os mi- 
cros mais simples são capazes de fazer 
desenhos de boa qualidade? 

A capacidade gráfica dos micros 
atuais chega a ser impressionante. En- 
tretanto, isso não é suficiente para sa- 


| | | 
| | | | | 
| 


tisfazer o público de um cinema, O cus- 
to da produção de um filme de ficção 
científica em computador chega a ser da 
ordem de milhões de dólares, devido aos 
equipamentos caríssimos que são usa- 
dos. Esse preço só é compensador quan- 
do o roteiro requer cenas impossíveis de 
serem obtidas na vida real. 

A grande maioria das pessoas não 
tem acesso a computadores profissionais 
de animação gráfica. Portanto, devem 
contentar-se em usar seus próprios mi- 
cros para executar tais tarefas. 

A animação gráfica é uma das mui- 
tas aplicações dos programas de proje- 
to assistido por computador (PAC), já 
discutido em artigos anteriores. Nesses 
casos, o grau de sofisticação alcançado 
é limitado pela capacidade do micro- 
computador utilizado. Um dos mais po- 
derosos equipamentos de animação grá- 
fica para filmes, por exemplo, é o Cray 
X-MP, um supercomputador que ope- 
ra à velocidade de 100 megaflops (100 
milhões de operações em ponto flutuan- 
te por segundo). Mas, como as imagens 
são muito complexas e têm que ser tro- 
cadas muitas vezes por segundo, nem 
mesmo o Cray consegue gerar uma ani- 
mação em tempo real. Suas imagens 
precisam ser filmadas separadamente, 
quadro a quadro, e recompostas, come 
se faz em um desenho animado. 

Uma figura sem muitos detalhes, po- 
rém, permite animações bem próximas 
do real. Você mesmo já deve ter visto 
videogames bem produzidos, em que as 
imagens geradas chegam à velocidade de 
cinquenta quadros por segundo. 

O maior problema em uma animação 
feita no computador é a grande quanti- 
dade de informações existentes em um 
desenho. Quanto mais detalhada a figu- 
ra, mais memória é exigida para seu ar- 
mazenamento. Igualmente, quanto mais 
colorida for a imagem, mais espaço de 
memória RAM é necessário. 

Devemos também levar em conta 
que, à medida que cresce a quantidade 
de informações a serem processadas pela 
UCP, mais lenta se torna a animação, 
É por esse motivo que nem mesmo os 
mais sofisticados computadores são 
auto-suficientes na produção de um fil- 
me ou desenho animado. Não existe ain- 
da uma UCP tão rápida a ponto de dis- 


Utilizando páginas gráficas, 

você poderá criar as mais diversas 
figuras e cenas animadas no 
microcomputador. Elas tornarão 
seus jogos muito mais divertidos. 


pensar, totalmente, o processo manual 
de montagem quadro a quadro. 

Se a animação de figuras é uma tare- 
fa lenta para os mais avançados compu- 
tadores, como você poderá movimentá- 
las na tela de seu micro? Uma das solu- 
ções consiste em lançar mão das pági- 
nas gráficas. 
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“OQUE SÃO PÁGINAS GRÁFICAS | 


Todos os microcomputadores pos- 
suem uma área da memória reservada 
para a tela de vídeo. Ela pode ser de dois 
tipos: a memória mapeada, na qual a ca- 
da ponto da tela corresponde um local 


e 
E A LANTERNA MÁGICA 
á 
e 


A PERSISTÊNCIA 
DA VISÃO 


O DESENHO ANIMADO 
GRÁFICOS NO COMPUTADOR 


na memória; ou o arquivo de códigos, 
organizado como uma lista. 

No conceito das páginas gráficas, em 
vez de se construir a figura diretamente 
na memória reservada para a tela, usa- 
mos uma outra área da memória RAM, 
definida especialmente para esse fim. 
Assim que se conclui a figura, ela é 


e 
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pre 


PRÓPRIA ANIMAÇÃO 


transferida para a parte da RAM nor- 
malmente associada à tela. A área utili- 
zada para construir o desenho é chama- 
da de página gráfica. 

Mas, qual a vantagem de empregá- 
la? Seguramente não haverá nenhuma 
economia de tempo, se tivermos que de- 
senhar a figura primeiro em uma área 
separada da memória. Ao contrário, 
quando se transferem as informações 
para a memória de tela, perde-se um cer- 
to tempo. A vantagem reside no fato de 
que podemos alterar à vontade a pági- 
na “oculta””, sem provocar simultanea- 
mente alterações na tela. 

E óbvio que a técnica de páginas grá- 
ficas não tem muito valor quando se tra- 
ta de desenhar apenas uma figura. Su- 
ponhamos, porém, que você queira es- 
crever um programa em que há um tex- 
to seguido de um desenho: seria bem 
mais conveniente ir construindo a figu- 
ra em algum lugar da memória, enquan- 
to o usuário estivesse ocupado com a lei- 
tura do video. Com a tela gráfica, mui- 
to tempo seria economizado, uma vez 
que ela já estaria pronta e disponível em 
uma parte da memória. 

Mas a grande vantagem das páginas 
gráficas se evidencia quando se preten- 
de mostrar uma sucessão muito rápida 
de figuras. Os comandos em BASIC em 
geral escrevem apenas nas áreas reser- 
vadas para a tela, Isso significa que ire- 
mos construir a figura nesta área, e, de- 
pois, transportá-la para outra parte da 
RAM. Esse processo será mais lento na 
etapa de montagem, mas muito mais rá- 
pido na exibição da imagem, pois o mi- 
croprocessador não precisará executar 
uma série de comandos e funções em 
BASIC. Ele apenas transferirá as infor- 
mações daquela parte da memória para 
a tela. E, se você montar várias figuras 
em diferentes áreas da memória, elas 
poderão ser chamadas rapidamente 
para a tela, produzindo um efeito de 
animação. 


| O ALGORITMO DE UM CUBO 


Tomemos como exemplo a monta- 
gem de uma segiiência animada que re- 
presente a rotação de um cubo. Decidiu-. 








se que quatro quadros serão suficientes | 








para simular uma rotação e que o cubo 
dará cinco voltas. 

O programa poderia ser estruturado 
da seguinte maneira: 
para c = l até 5 faça 
começo 
limpar a tela 
construir a figura número 1 
limpar a tela 
construir a figura número 2 
limpar a tela 
construir a figura número 3 
limpar a tela 
construir a figura número 4 
fim 


A idéia parece simples demais: limpa- 
se a tela, exibe-se cada uma das figuras 
em segiiência e o processo é repetido até 
que se completem as cinco rotações. 
Mas esse método apresenta uma desvan- 
tagem: os cálculos para se desenhar ca- 
da figura são refeitos a cada uma das 
cinco repetições. Como os cálculos to- 
mam a maior parte do tempo no pro- 
cesso, ocorrerá um “pulo” entre cada 
figura exibida, o que resultará em um 
fraco efeito de animação. 

Observe agora este algoritmo, que 





ilustra o procedimento geral usado na 
técnica de páginas gráficas: 


limpar a tela 

construir a figura número 1 

guardar a tela na página de memória | 
limpar a tela 

construir a figura número 2 

guardar a tela na página de memória 2 
limpar a tela 

construir a figura número 3 

guardar a tela na página de memória 3 
limpar a tela 

construir a figura número 4 

guardar a tela na página de memória 4 
para c = 1 até 5 faça 

copie os dados da página 1 para a tela 
copie os dados da página 2 para a tela 
copie os dados da página 3 para a tela 
copie os dados da página 4 para a tela 
fim 


O programa é mais longo e exige um 
demorado processo de construção das 
quatro figuras, antes de começar a ani- 
mação. Mas, uma vez armazenadas nas 
páginas de memória, as figuras podem 
ser mostradas em rápida sequência. 

Embora a construção dos desenhos 
seja executada em BASIC, podemos uti- 


lizar uma rotina em código de máquina 
para efetuar a transferência de uma fi- 
gura da tela para a página gráfica e vice- 
versa. Ela realizará essas transferências 
em um piscar de olhos — o que é a es- 
sência da animação. 





“FAÇA SUA PRÓPRIA ANIMAÇÃO — 


Os próximos programas são aplica- 
ções bem simples da técnica das páginas 
gráficas. Os que utilizam código de má- 
quina devem ser gravados antes da exe- 
cução, para evitar que se percam, caso 
ocorra algum erro de digitação. Você 
pode usar suas próprias figuras nesses 
programas, colocando os comandos de 
desenho nas linhas adequadas. 

Em um próximo artigo, examinare- 
mos em detalhe as técnicas aqui empre- 
gadas e você verá como aproveitar ao 
máximo a capacidade de seu micro. 


Este programa — adequado só ao 
Spectrum de 48 K — produzirá a anima- 
ção de um acrobata pulando sobre um 















O acrobata na tela do Spectrum, 


trampolim. Embora a maior parte do 
programa seja em BASIC, há um trecho 
em linguagem de máquina que dará a ve- 
locidade necessária às figuras na tela. 


10 BORDER O: PAPER O: INK 7: 
CLS 

20 CLEAR 53230 

30 GOSUB 220 

40 LET srce=64: LET dest=208 
50 CLS 

60 CIRCLE 128,168,7: PLOT 128 
/161: DRAW 0,-15: DRAW -10, 
-10: PLOT 128,146: DRAW 10, 


-10: PLOT 118,16): 
DRAW 10,5 

70 PLOT 108,106: DRAW 40,0: 

PLOT 113,106: DBAW -B,-B: 

PLOT 145,106: DRAW B,-B 

BO GOSUB 270: LET dest=dest+ 
16 

90 PRINT AT 21,2;"qualquer te 

cla para comecar”: PAUSE O 


DRAW 11,-5 


100 CLS : CIRCLE 128,151,7: 

PLOT 128,134: DRAW 0,-15: DRAW 

-5,-16: PLOT 128,120: DRAW 5, 

-17: PLOT 118,125: DBAW 10,5: 

DRAW 11,-5 

110 PLOT 108,106: DRAW 15,-4: 

DRAW 10,0: DRAW 15,4: PLOT 113 

/105: DRAW -B,-B: PLOT 144,105 
DRAW B,-B 

120 PRINT AT 6,4;"!!BOING!!” 

130 GOSUB 270 

140 PRINT AT 21,2;"qualquer te 

cla para comecar”: PAUSE OQ 

1650 LET srce=208B: LET dest=64 

160 PRINT AT 17,3;"qualquer te 

cla para pular”: PAUSE O 

170 FOR n=0 TO 1 

180 CLS 

190 GOSUB 270: LET srcez=prce+ 
16 

200 NEXT n 

210 GOTO 150 

220 DATA 1,0,16,17,0,0,33,0,0, 


237,176,201 
230 FOR 1=53231 TO 53231+11 
240 READ byte: POKE i,byte 


ps Ê 1 , p , , 
| | 
| R ] 
| | 
| | 
| 
| | Rn a | , 





TRS-Color: o asterisco que se movimenta, 


250 
260 
270 
280 


NEXT à 

RETURN 

POKE 53236, dest 
POKE 53239,srce 
290 RAND USA 5323] 
300 RETUAN 


A linha 10 seleciona as cores da tela, 
da borda e do desenho: negro, negro e 
branco, respectivamente. À 20 reserva 
um espaço na memória e a 30 desvia o 
programa para a sub-rotina entre as li- 
nhas 220 e 260, que irá montar a rotina 
em linguagem de máquina, nessa área. 
Essa sub-rotina em BASIC lê os códi- 
gos após o comando DATA (linha 220) 
e os coloca na área reservada na memó- 
ria, atraves do comando POKE., 

A linha 40 define duas variáveis: srce 
e dest. A variável srce corresponde ao 
byte alto do endereço de onde os códi- 
gos devem ser retirados e dest, ao byte 
alto do endereço onde eles vão ser guar- 
dados. Informa-se, assim, ao computa- 
dor onde ler a imagem da tela e onde 
colocá-la na memória. Em seguida, as 
linhas 60 e 70 desenham a primeira das 
duas figuras — o acrobata no ar. A li- 
nha 80 desvia o programa para a linha 
270, onde há uma rotina que coloca os 
valores de dest e srce no programa em 
código de máquina, Depois, chama es- 
sa rotina para copiar a parte da tela em 
que está o acrobata. 

O próximo passo consiste na criação 
da imagem para a segunda página de 
memória (linhas 100 a 120). Essa ima- 
gem é armazenada pela linha 130, que 
desvia o programa para a linha 270. A 
linha 150 troca os valores de srce e dest, 
o que faz com que os códigos sejam 
transferidos da RAM para a tela. As li- 
nhas 150 a 210 formam um laço que se 
encarrega de alternar as duas figuras na 
tela. Para interromper o programa, bas- 
ta acionar <BREAK>. 


Para montar sua própria animação 
(de dois quadros), você precisará modi- 
ficar os comandos gráficos nas linhas 60 
e70e 100 e 110. Futuramente, você ve- 
rá que é possível usar até oito páginas 
gráficas em sequência. 


O programa do TRS-Color é ligeira- 
mente diferente dos destinados aos ou- 
tros computadores. Ele usa três páginas 
gráficas — em vez de duas — das oito 
possíveis acessadas pelo comando 
PCOPY. Esse comando é utilizado da 
seguinte maneira: PCOPY numero da 
primeira página TO número da última 
página — PCOPY 1 TO 8, por exem- 
plo. Na verdade, a alternância de pági- 
nas é tão rápida, que se torna necessá- 
rio introduzir uma pausa entre elas, 

O programa mostra uma grande es- 
trela girando continuamente. 


10 PCLEAR B:PMODE 2,1 

20 SCREEN 1,1:CLS 

30 C=ATN(1)/45 

50 FOR N=0 TO 2 

60 PCLS 

70 FOR K=0 TO 360 STEP 45 

80 LINE(127,95)-(127+59*SIN(C*( 
K+N*15)),95-59*C0S (C* (K+N*15))) 
| PSET 


90 NEXT 

100 PCOPY 1 TO 3+N*2:PCOPY 2 TO 
4+N*2 

110 NEXT 

140 FOR N=3 TO 7 STEP 2 

150 PCOPY N TO 1:PCOPY N+1 TO 2 
160 FOR G=1 TO 30:NEXT G,N 

170 GOTO 140 


A linha 10 abre espaço para as oito 
páginas gráficas e seleciona PMODE2Z 
na página 1, para ficar em branco e pre- 
to com média resolução. Neste modo, 



















uma tela ocupa duas das páginas gráfi- 
cas internas. Na linha 20 o modo de al- 
ta resolução gráfica é acionado. 

As imagens que irão ocupar as três 
páginas são montadas da linha 30 até a 
linha 110, enquanto a linha 100 copia 
cada uma delas nas páginas internas. 
Uma tela ocupa duas páginas internas 
e as duas primeiras páginas são usadas 
para desenhar os gráficos. 

As linhas 140 a 160 copiam as pági- 
nas armazenadas na tela, em segiiência. 
Há uma pausa na linha 160 para evitar 
que as imagens se alternem muito rapi- 
damente e se sobreponham. 


“é RES 


No Apple, contamos com duas pági- 
nas gráficas. O comando HGR ativa a 
alta resolução, limpa e mostra a página 
| da memória. O comando HGR2 ativa 
a alta resolução, limpa e mostra a págl- 
na 2. Colocaremos um desenho em ca- 
da página, fazendo com que se alter- 
nem. Digite e execute o programa. Vo- 
cê verá um beija-flor pairando no ar. 


5 HGR 

10 POKE - 16302,0 

20 Xl = 112:Y1l = 67:N = 16 

30 GOSUB 100 

40 FORT = 1 TO 1000: NEXT T 
50  HGR2 

60 X1l = 115:71 = B3:N = 19 

70 GOSUB 100 

BO FORT = 1 TO 1000: 
90 GOTO 300 


NEXT T 


100 FOR I =1TON 

110 READ X2 

120 READ Y2 

130 HPLOT X1,Y1 TO X2,72 

140 LET XI = KZ: LET Y1 = YZ 
150 NEXT 1 

160 RETURN 

200 DATA B6,3,79,67,90,86, 
192,3,176,64,141,99,198,166,170 
1186 

210 DATA J115,186,118,138,86,1 


18,12,191,48,139,51,109,67,90,9 
0,86 

220 DATA 96,64,54,48,83,86,11 
5,863,160,80,240,102,185,115 

230 DATA 144,113,160,144,192, 
147,179,169,144,185,115,148 


240 DATA 86,118,12,191,48,139 
,51,109,67,90,83,86 

300 POKE - 16304,0: POKE - 1 
6300,0 

310 FOR 1 = 1 TOZ7ZO0:NEXTI 
320 POKE - 16304,0: POKE - 1 
6299,0 

330 FORT = 12 TO 70: NEXT T 


340 GOTO 300 
A linha 5 ativa o comando HGR. To- 


“dos os comandos gráficos escreverão na 
| primeira página. A linha 10 “fecha” a 


janela de quatro linhas na base da tela. 
A linha 20 define os pontos iniciais do 
primeiro desenho (X1 e Y1) e o número 
de coordenadas a serem lidas (N). A li- 
nha 30 desvia o programa para a sub- 
rotina de desenho que vai da linha 100 
à linha 160. Para construir esse primei- 
ro desenho, serão lidas as linhas 200 e 
210. 

A linha 50 ativa o HGR2, abrindo es- 
paço para se escrever na segunda pági- 
na. A linha 60 define os valores iniciais 
da segunda figura e a 70 chama a sub- 
rotina de desenho, que agora irá ler as 
linhas 220, 230 e 240. 

A rotina entre as linhas 300 e 340 al- 
terna as duas figuras na tela. A linha 300 
mostra a página 1 e a 320, a página 2. 
As linhas 310 e 330 introduzem pausas 
para diminuir a velocidade de alternân- 
cia das Imagens. 


Fo) 


O programa do TK-2000 é semelhan- 
te ao do Apple. Devem ser feitas as se- 
guintes modificações: 


5 MA: HOME 
10 MA: HGRZ 
50 MP: HGR2 
300 MA 

320 MP 


A linha 5 limpa a primeira (MA) e a 
segunda (MP) páginas. A linha 10 ha- 


MP: HOME 


bilita o usuário a escrever na primeira. 
página, é a linha 50, na segunda. As li- 


nhas 300 e 320 mostram a primeira e a 

segunda páginas, respectivamente. 
Para entender melhor o programa, 

veja as explicações para o Apple. 


Po ES 


O MSX, como você já deve saber, 
possui uma memória exclusiva para a te- 
la, a VRAM, que é dividida em oito par- 
tes de 2048 bytes. O comando BASE en- 
dereça cada arquivo de códigos em um 
deles, não necessariamente em sequên- 
cia. Como o modo de baixa resolução 
gráfica não exige muitas informações, 
grande parte da VRAM fica desocupa- 
da. Nesses espaços é possível criar até 
seis páginas gráficas. Para demonstrar 
isso, O próximo programa irá simular a 
rotação de um cubo. 


5 BASE (18) =BASE (19) 

10 BASE(17)=0:SCREEN 3 

20 X1=127:Y1=40:N=4 

30 GOSUB 200 

40 BASE(17)=4096:SCREEN 3 
50 X1=103:Y1=151:N=10 


ININRER EE E os rrocramaçãoaste “ga 55 5 RR RAR 


60 GOSUB 200 

70 BASE(17)=6144:SCREEN 3 

B0 X1=95:Y1=151:N=10 

90 GOSUB 200 

100 BASE (17)=8192:SCREEN 3 

110 X1=85:Y1=96:N=6 

120 GOSUB 200 

130 BASE (17)=10240:SCREEN 3 

140 X1=155:Y1=151:N=10 

150 GOSUB 200 

160 BASE (17)=12288:SCREEN 3 

170 X1=151:Y1=151:N=10 

180 GOSUB 200 

190 Goto 400 

200 FOR T=1 TON 

210 READ X2 

220 READ Y2 

230 LINE(X1I,Y1)-(X2,Y2) 

240 LET X1=X2:LET Y1=Y2 

250 NEXT 1 

260 RETURN 

300 DATA 177,96,127,151,74,96,1 
27,40 

310 DATA 133,96,176,96,151,151, 
103,151,78,96,103,40,151,40,181 
,96,128,96,103,40 

320 DATA 110,96,170,96,155,151, 
95,151,80,96,95,40,155,40,170,9 
6,110,96,95,40 

330 DATA 85,41,169,41,169,151,8 
5,151,85,96,169,96 

340 DATA 140,96,80,96,95,151,15 
5,151,170,96,155,40,95,40,80,96 
,140,96,155,40 

350 DATA 121,96,73,96,103,151,1 
51,151,181,96,151,40,103,40,73, 
96,121,96,151,40 

400 BASE(17)=0 

FOR 1=1 TO 7O:NEXT 1 

BASE (17)=4096 

FOR I=1 TO 7Z7O:NEXT I 

BASE (17)=6144 

FOR I=1l TO 7O:NEXT 1 

BASE (17)=8192 

FOR I=1 TO 70:NEXT I 

BASE (17)=10240 

FOR I=1l TO 70:NEXT 1 

BASE (17)=12288 

510 FOR 1=1 TO 7O:NEXT 1 

520 GOTO 400 

Primeiro, a linha 5 coloca o endere- 
ço de um arquivo que não iremos usar 
no último segmento da VRAM, junto 
com um outro, a fim de criar espaço. A 
linha 10 faz o computador colocar a ta- 
bela de padrões (a figura propriamente 
dita) a partir do endereço 0. A 20 defi- 
ne os pontos iniciais do desenho (X1 e 
Y1) e o número de coordenadas que se- 
rão lidas (N). A 30 chama a rotina de 
desenho, que começa na linha 200 e ter- 
mina na 260. A 300 contém as informa- 
ções para o primeiro desenho. 

Feitos os desenhos, o programa é des- 
viado para a rotina da linha 400, que al- 
terna as figuras na tela, dizendo ao com- 
putador, por meio do comando BASE, 
onde buscá-las. Essa rotina inclui ain- 
da uma pausa entre as figuras, para que 
elas não se sobreponham. 





LINHA 


Apple Il + 

Apple Il+ 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple + 
Apple ll+ 
Apple Il + 
Apple + 
Apple + 
Apple + 
Apple ll+ 
Apple ll + 
Apple ll+ 
Apple ll + 
Apple Il + 
Apple ll + 
Apple Il + 
Apple + 
Apple Hl+ 
Apple Il + 

Apple Il + 
Apple ll + 
Apple ll + 
Apple ll + 
Apple Il + 
Apple ll+ 
Apple lle 

Apple Ile 


Apple Ile 
MSX 


MSX 


FABRICANTE Po 


Appletronica 
CCE 

CPA 

CPA 

Digitus 
Dismac 
ENIAC 
Franklin 
Houston 
Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Milmar 
Milmar 
Milmar 
Omega 
Polymax 
Polymax 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Unitron 
Victor do Brasil 
Victor do Brasil 
Microcraft 
Microdigital 
Spectrum 
Gradiente 
Sharp 


MODELO 


Thor 2010 
MC-4000 Exato 
Absolutus 


| Polaris 


DGT-AP 
D-8100 
ENIACII 
Franklin 
Houston AP 
DMII 
MX-2001 
MX-48 

MX.64 
Maxitronic | 
Crafll Plus 
Apple Il Plus 
Apple Master 
Apple Senior 
MC-400 
Maxxi 

Poly Plus 
Microengenho | 
Spectrum ed 
Venus ll 

SICI 

API 

Elppa ll Plus 
Elppa Jr. 
Craftlle 
TK-3000 He 


"Microengenho ll 


Expert GPC4 
Hotbit HB-8000 


FABRICANTE 


Appletronica 
Apply 

CCE 

CPA 

CPA 
Codimex 
Digitus 
Digitus 
Digitus 
Dismac 
Dismac 
Dismac 
Dynacom 
ENIAC 
Engebras 
Filcres 
Pranklin 
Gradiente 
Houston 
Kemitron 
LNW 

LZ 

Magnex 
Maxitronica 
Maxitronica 
Maxitronica 
Maxitronica 
Microcraft 
Microcraft 
Microdigital 
Microdigital 
Microdigital 
Microdigital 


MODELO 


Thor 2010 
Apply 300 
MC-4000 Exato 
Absolutus 
Polaris 
CS-6508 
DGT100 
DGT-1000 
DGT.AP 
D-8000 
D-8001/2 
D-8100 
MX1600 
ENIACII 
AS+1000 
NEZ-8000 
Franklin 
Expert GPC1 
Houston AP 
Naja 800 
LNW-B0 
Color 64 
DMI 
MX-2001 
MX-48 
MX-64 
Maxitronic | 
Craft ll Plus 
Caftlle 
TK-3000 Ile 
TK-82C 
TK-83 

TK-85 


PAÍS 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


Brasil 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
USA 

Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 


LINHA 


Apple Il+ 


o Sinclair ZX-81 


Apple ll + 
Apple + 
Apple ll + 
TRS-Color 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
Apple + 
TRS-80 Mod.! 
TRS-80 Mod. 
Apple ll + 
TRS-Color 
Apple ll+ 
Sinclair ZX-81 
Sinclair ZX-81 
Apple ll + 
MSX 

Apple Il + 
TRS-80 Mod.lll 
TRS-80 Mod. | 
TRS-Color 
Apple Il + 
Apple Il + 
Apple Il + 
Apple Il + 
Apple ll + 
Apple Il+ 
Apple lle 
Apple lle 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 


Microdigital TK-90X Brasil 
Microdigital TKS-800 Brasil 


Sinclair Spectrum | 
TRS-Color 


Microdigital TK-90X 
Timex 2000 


Sinclair Spectrum 
Sinclair Spectrum Timex 


Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
Sinclair ZX-81 
TRS-80 Mod.I 
TRS-80 Mod. | 
TRS-80 Mod. | 
TRS-80 Mod.! 
TRS-80 Mod.lil 
TRS-BO Mod.il 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lil 
TRS-80 Mod.lll 
TRS-80 Mod.lil 
TRS-80 Mod.IV 
TRS-80 Mod.IlV 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 
TRS-Color 


Apply 
Engebras 


“Filcres 


Microdigital 
Microdigital 
Microdigital 
Prologica 
Ritas 

Timex 
Timex 
Dismac 
Dismac 
LNW 

Video Genie 
Digitus 
Digitus 
Kemitron 
Prologica 
Prologica 
Sysdata 
Sysdata 
Multix 
Sysdata 
Codimex 
Dynacom 
LZ 
Microdigital 
Prologica 


Apply 300 
AS41000 
NEZ-8000 
TK-B2C 
TK-83. 
TK-85 
CP-200 
Ringo R-470 
Timex 1000 
Timex 1500 
D-8000 | 
D-8001/2 
LNW-80 
Video Genie | 
DGT100 
DGT-1000 
Naja 800 
CP-300 
CP-500 
Sysdata Ill 
Sysdata Jr. 
MX-Compacto 
Sysdata IV 
CS-6508 
MX-1600 
Color 64 
TKS-800 
CP-400 


Milmar 
Milmar 


“Milmar 


Multix 
Omega 
Polymax 
Polymax 
Prologica 
Prologica 
Prologica 
Prologica 
Ritas 

Sharp 
Spectrum 
Spectrum 
Spectrum 
Suporte 
Sycomig 
Sysdata 
Sysdata 
Sysdata 
Timex 
Timex 
Timex 
Unitron 
Victor do Brasil 
Victor do Brasil 
Video Genie 


Apple ll Plus 
Apple Master 
Apple Senior 
MX-Compacto 
MC-400 

Maxxi 

Poly Plus 
CP-200 

CP-300 

CP-400 

CP.500 

Ringo R-470 
Hotbit HB-8000 
Microengenho | 
Microengenho Il 
Spectrum ed 
Venus ll 

SICI 

Sysdata Ill 
Sysdata IV 
Sysdata Jr. 
Timex 1000 
Timex 1500 
Timex 2000 
APII 

Elppa Il Plus 
Elppa Jr. 

Video Genie! 


Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
Brasil 
USA 

USA 

USA 

Brasil 
Brasil 
Brasil 
USA 


Apple Il + 
Apple ll + 
Apple Il + 
TRS-B0 Mod.IV 
Apple Il + 
Apple Il + 
Apple l+ 
Sinclair ZX-81 
TRS-80 Mod.Ill 
TRS-Color 
TRS-80 Mod.lll 
Sinclair ZX-81 
MSX 

Apple Il+ 
Apple Ile 
Apple l+ 
Apple Il + 
Apple Il + 
TRS-80 Mod. 
TRS-80 Mod.IV 
TRS-80 Mod.lll 
Sinclair ZX-81 
Sinclair ZX-81 


Sinclair Spectrum 


Apple Il + 
Apple Il + 
Apple ll+ 
TRS-80 Mod. | 


EN an Tin macas 
é, UM LOGUTIE SI qi , 


“INPUT foi especialmente projetado para PN 
“ microcomputadores compatíveis com as sete principais Sinclair E TARSO TK:2000 MSX 


“linhas existentes no mercado. 
ba, então emp a sr 


“Os blocos de textos e listagens de programas po pera 
Eme renes E UM [06] Semp e 
; identificados por meio dos seguintes sim os: TRS-Color pune dl 


ED Dm me eee mo meto mm o em em 





NnnanaNO PRÓXIMO NUMERONHHEHEEEII 


PROGRAMAÇÃO BASIC 
Veja como os programas são armazenados. Além de satisfazer 
sua curiosidade, você terá novos recursos para detectar erros. 


APLICAÇÕES 
Se você vive às voltas com números, prepare uma planilha 
de cálculo e peça socorro ao computador. 


CÓDIGO DE MÁQUINA 
Avalanche: mais problemas se abatem sobre Willie. Agora, 
pedras gigantescas rolam morro abaixo, ameaçando soterrá-lo. 





